Dr. Windows 3/dr win3.zip/dr win3/COMMUNIC/RFDMAILN.ZIP/CSERVE.SCR

Text File | 1993-09-09 | 15KB | 468 lines

;------------------------------------------------------
;
;CSERV.SCR --- The script file for CompuServe
;
;------------------------------------------------------
;
;   We begin with the format specifiers to which allow
;the script to identify where the MailId, RealName,
;and Subject texts are in a newly downloaded letter.
;
Format
Reply to: $SUBJECT$\n
Subject: $SUBJECT$\n
Subj: $SUBJECT$\n
From: [$UID$] $NAME$\n
From: $NAME$[$UID$]
From: $UID$\n
Endformat
;------------------------------------------------------
Begin START
   Caption 'connected'
   Control C
   When 'User ID: ' Goto USERNAME
   Timeout 3 Goto START
End
;------------------------------------------------------
Begin USERNAME
   Transmit $USERNAME
   Cr
   When 'Password:' Goto PASSWORD
   When 'User ID: ' Goto USERNAME
   Timeout 20 Goto NO_LOGIN
End
;------------------------------------------------------
Begin PASSWORD
   Transmit $PASSWORD
   Cr
   When 'Password:' Goto PASSWORD
   When 'User ID: ' Goto USERNAME
   When 'CompuServe Information Service' Goto LOGGED_IN
   Timeout 20 Goto NO_LOGIN
End
;------------------------------------------------------
Begin LOGGED_IN
   Caption 'logged in'
   When 'CompuServe Mail  Message Menu' Goto MESSAGE_MENU
   When 'New This Week' Goto NEW_MENU
   When 'Enter choice !' Goto JUMP_TO_MAIL
   When 'Enter choice number !' Goto JUMP_TO_MAIL
   Timeout 30 Goto JUMP_TO_MAIL
End
;------------------------------------------------------
Begin NEW_MENU
   When 'Enter choice !' Goto JUMP_TO_MAIL
   Timeout 20 Goto JUMP_TO_MAIL
End
;------------------------------------------------------
Begin MESSAGE_MENU
   Caption 'You have mail'
   If FETCHING Then FETCH_FROM_MESSAGE_MENU
   When 'M for CompuServe Mail' Goto JUMP_TO_MAIL
   Timeout 15 Goto JUMP_TO_MAIL
End
;------------------------------------------------------
Begin FETCH_FROM_MESSAGE_MENU
   When 'Enter choice !' Goto JUMP_TO_MAIL
   When 'Enter choice number !' Goto JUMP_TO_MAIL
   When 'M for CompuServe Mail' Goto REQUEST_DOWNLOAD
   Timeout 15 Goto REQUEST_DOWNLOAD
End
;------------------------------------------------------
Begin FETCH_FROM_MAIN_MENU
   When 'Enter choice !' Goto REQUEST_DOWNLOAD
   Timeout 15 Goto REQUEST_DOWNLOAD
End
;------------------------------------------------------
Begin REQUEST_DOWNLOAD
   Caption 'Fetching Mail'
   Transmit 'download/PRO:XMODEM 1'
   Cr
   When 'characters ready' Goto PAUSE_BEFORE_DOWNLD
   When 'for download' Goto PAUSE_BEFORE_DOWNLD
   When 'Starting XMODEM' Goto PAUSE_BEFORE_DOWNLD
   When 'Enter choice !' Goto JUMP_TO_MAIL
;   When 'Enter choice !' Goto REQUEST_DOWNLOAD
   When 'Enter choice number !' Goto JUMP_TO_MAIL
   Timeout 20 Goto ABORT_DOWNLD
End
;------------------------------------------------------
Begin ABORT_DOWNLD
   Control X
   Control X
   Control X
   Control X
   Control X
   Control X
   Control X
   Control C
   When 'Press CR!' Goto JUMP_TO_MAIL
   Timeout 20 Goto JUMP_TO_MAIL
End
;------------------------------------------------------
Begin PAUSE_BEFORE_DOWNLD
   Timeout 2 Goto DOWNLD_LETTER
End
;------------------------------------------------------
Begin DOWNLD_LETTER
   Download XMODEM Then DOWNLD_SUCCESS Else GIVE_UP
End
;------------------------------------------------------
Begin DOWNLD_SUCCESS
   Confirm LETTER.RECEIVED Successful
   Caption 'Letter Received'
   When 'Transfer Completed' Goto WAIT_DOWNLD_CR
   When 'Press <CR>!' Goto SEND_DOWNLD_CR
   When 'Message Menu' Goto WAIT_DELETE_LETTER
   Timeout 5 Goto SEND_DOWNLD_CR
End
;------------------------------------------------------
Begin WAIT_DOWNLD_CR
   When 'Press <CR>!' Goto SEND_DOWNLD_CR
   Timeout 5 Goto SEND_DOWNLD_CR
End
;------------------------------------------------------
Begin SEND_DOWNLD_CR
   Cr
   When 'Press <CR>!' Goto SEND_DOWNLD_CR
   When 'Mail  Main Menu' Goto WAIT_DELETE_LETTER
   When 'M for CompuServe' Goto DELETE_LETTER
   Timeout 20 Goto RETRY_DELETE_LETTER
End
;------------------------------------------------------
Begin WAIT_DELETE_LETTER
   When 'Enter choice !' Goto DELETE_LETTER
   When 'for CompuServe Mail main menu' Goto DELETE_LETTER
   Timeout 15 Goto RETRY_DELETE_LETTER
End
;------------------------------------------------------
Begin RETRY_DELETE_LETTER
   Transmit 'go email'
   Cr
   When 'Mail  Main Menu' Goto WAIT_DELETE_LETTER
   When 'Enter choice !' Goto DELETE_LETTER
   Timeout 15 Goto GIVE_UP
End
;------------------------------------------------------
Begin DELETE_LETTER
   Caption 'Deleting Letter'
   Transmit 'delete 1'
   Cr
   When 'Press <CR>!' Goto SEND_DELETE_CR
   When 'M for CompuServe Mail' Goto JUMP_TO_MAIL
   Timeout 10 Goto SEND_DELETE_CR
End
;------------------------------------------------------
Begin SEND_DELETE_CR
   Cr
   When 'M for CompuServe Mail' Goto JUMP_TO_MAIL
   When 'Mail  Main Menu' Goto MAIL_MAIN_MENU
   When 'Enter choice !' Goto JUMP_TO_MAIL
   Timeout 10 Goto JUMP_TO_MAIL
End
;------------------------------------------------------
Begin JUMP_TO_MAIL
   Transmit 'go email'
   Cr
   When 'Mail  Message Menu' Goto MESSAGE_MENU
   When 'additional information (Y or N)!' Goto ANSWER_NO
   When 'Mail  Main Menu' Goto MAIL_MAIN_MENU
   When 'Enter choice !' Goto JUMP_TO_MAIL
   Timeout 20 Goto GIVE_UP
End
;------------------------------------------------------
Begin ANSWER_NO
   Transmit 'N'
   Cr
   When 'Mail  Message Menu' Goto MESSAGE_MENU
   When 'additional information (Y or N)!' Goto ANSWER_NO
   When 'Mail  Main Menu' Goto MAIL_MAIN_MENU
   When 'Enter choice !' Goto JUMP_TO_MAIL
   Timeout 20 Goto GIVE_UP
End
;------------------------------------------------------
Begin MAIL_MAIN_MENU
   Caption 'Mail Area'
   When '*** No mail waiting ***' Goto NO_MAIL_WAITING
   When 'letters waiting' Goto MAIL_WAITING
   When 'letter waiting' Goto MAIL_WAITING
   When 'message pending' Goto MAIL_WAITING
   When 'messages pending' Goto MAIL_WAITING
   When 'Enter choice !' Goto JUMP_TO_MAIL
   Timeout 20 Goto GIVE_UP
End
;------------------------------------------------------
Begin MAIL_WAITING
   If FETCHING Then FETCH_FROM_MAIN_MENU
   If MORE_LETTERS Then SEND_MAIL
   When 'Enter choice !' Goto LOG_OFF
   Timeout 20 Goto LOG_OFF
End
;------------------------------------------------------
Begin NO_MAIL_WAITING
   Caption 'No Mail'
   If MORE_LETTERS Then SEND_MAIL
   When 'Enter choice !' Goto LOG_OFF
   Timeout 20 Goto GIVE_UP
End
;------------------------------------------------------
Begin SEND_MAIL
   When 'Enter choice !' Goto REQUEST_UPLOAD_LETTER
   Timeout 20 Goto GIVE_UP
End
;------------------------------------------------------
Begin REQUEST_UPLOAD_LETTER
   Transmit 'UPLOAD/TYP:ASC/PRO:XMODEM'
   Cr
   When 'Enter choice !' Goto REQUEST_UPLOAD_LETTER
   When 'Starting XMODEM' Goto PAUSE_BEFORE_UPLOAD
   When 'XMODEM transfer' Goto PAUSE_BEFORE_UPLOAD
   When 'Key <CR>' Goto PAUSE_BEFORE_UPLOAD
   Timeout 20 Goto GIVE_UP
End
;------------------------------------------------------
Begin PAUSE_BEFORE_UPLOAD
   NewLetter
   Timeout 2 Goto BEGIN_LETTER_UPLOAD
End
;------------------------------------------------------
;This is where we upload the letter.  Note that
;there are two states we can transfer to:
;UPLOAD_SUCCESS if it work, UPLOAD_FAILURE if it didn't
;
Begin BEGIN_LETTER_UPLOAD
   Upload XMODEM Then UPLOAD_SUCCESS Else GIVE_UP
End
;------------------------------------------------------
Begin UPLOAD_SUCCESS
   Caption 'Letter Uploaded'
   When '*** File Transfer Completed! ***' Goto END_LETTER_UPLOAD
   When 'Press <CR>!' Goto REQUEST_SEND_MENU
   When 'CompuServe Mail  Send Menu' Goto MAIL_SEND_MENU
   Timeout 10 Goto REQUEST_SEND_MENU
End
;------------------------------------------------------
Begin END_LETTER_UPLOAD
   When 'Press <CR>!' Goto REQUEST_SEND_MENU
   Timeout 20 Goto GIVE_UP
End
;------------------------------------------------------
Begin REQUEST_SEND_MENU
   Cr
   When 'Press <CR>!' Goto REQUEST_SEND_MENU